Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № __ з дисципліни “Основи програмування та алгоритмічні мови” Тема:_____________________________________________ Постановка задачi: Заданий одновимірний масив A(n) дійсних чисел. Побудувати масив В, кожний елемент якого обчислюється як bі = аmax - аі, де аmax - максимальний елемент масиву А. Обчислити
. Всі кратні 7 елементи масиву А збільшити на величину d. Надрукувати вхідний, побудований масиви, визначену величину d та вихідний масив. Аналiтичнi викладки: D = сума квадратів різниць всіх відповідних елементів масивів А і В. Число кратне 7 якщо воно ділиться на 7 без остачі. Блок-схема:
Текст програми: program lab5_1; uses crt; const n=11; type mas=array[1..n] of longint; var A,B :mas; i,d,m_el :longint; procedure ZapovnMas(var masiv :mas); begin; for i:=1 to n do masiv[i]:=random(30); end; procedure VivodMas(masiv :mas); begin; for i:=1 to n do write(masiv[i]:7); writeln; end; function MaxEl(masiv :mas) :longint; var Max_El :longint; begin; Max_El:=masiv[1]; for i:=1 to n-1 do if Max_El < masiv[i+1] then Max_El:=masiv[i+1]; MaxEL:=Max_El; end; procedure ChangeMas(var masiv1 :mas; masiv2 :mas); begin; for i:=1 to n do masiv1[i]:=m_el-masiv2[i]; end; function Find_d(masiv1,masiv2 :mas) :longint; var fd :longint; begin; fd:=0; for i:=1 to n do fd:=fd+sqr(abs(masiv1[i]-masiv2[i])); Find_d:=fd; end; procedure Change7(var masiv :mas); begin; for i:=1 to n do if (masiv[i] mod 7)=0 then masiv[i]:=masiv[i]+d; end; {---osnovna programa---} begin; randomize; clrscr; ZapovnMas(A); writeln('massiv A:'); VivodMas(A); m_el:=MaxEl(A); writeln('max=',m_el); ChangeMas(B,A); writeln('Massiv B'); VivodMas(B); d:=Find_d(A,B); writeln('d=',d:8); Change7(A); writeln('New A'); VivodMas(A); readln End. Скриншот:
Висновок: программа працює правильно, при підставленні таких самих значень елементів масиву А у екселі та обчисленні за формулами виходить такий самий результат